home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
diamond2.zip
/
DIAMOND.BAS
< prev
Wrap
BASIC Source File
|
1993-04-07
|
2KB
|
52 lines
CLS
SCREEN 12
colorx = 7
main:
' DO WHILE LCASE$(INKEY$) <> "c"
FOR x = 1 TO 50
IF LCASE$(INKEY$) = "c" THEN
colorx = colorx + 1
IF colorx = 16 THEN colorx = 1
END IF
LINE (200, 0)-(200, 400), colorx
LINE (200, 200)-(150 + x, 200 - x), colorx
LINE (200, 200)-(250 - x, 200 + x), colorx
LINE (150 + x, 200 - x)-(200, 0), colorx
LINE (250 - x, 200 + x)-(200, 0), colorx
LINE (150 + x, 200 - x)-(200, 400), colorx
LINE (250 - x, 200 + x)-(200, 400), colorx
FOR n = 1 TO 300: NEXT n
LINE (200, 200)-(150 + x, 200 - x), 0
LINE (200, 200)-(250 - x, 200 + x), 0
LINE (150 + x, 200 - x)-(200, 0), 0
LINE (250 - x, 200 + x)-(200, 0), 0
LINE (150 + x, 200 - x)-(200, 400), 0
LINE (250 - x, 200 + x)-(200, 400), 0
NEXT x
FOR x = 1 TO 50
IF LCASE$(INKEY$) = "c" THEN
colorx = colorx + 1
IF colorx = 16 THEN colorx = 1
END IF
LINE (200, 0)-(200, 400), colorx
LINE (200, 200)-(200 + x, 150 + x), colorx
LINE (200, 200)-(200 - x, 250 - x), colorx
LINE (200 + x, 150 + x)-(200, 0), colorx
LINE (200 - x, 250 - x)-(200, 0), colorx
LINE (200 + x, 150 + x)-(200, 400), colorx
LINE (200 - x, 250 - x)-(200, 400), colorx
FOR n = 1 TO 300: NEXT n
LINE (200 + x, 150 + x)-(200, 0), 0
LINE (200 - x, 250 - x)-(200, 0), 0
LINE (200, 200)-(200 + x, 150 + x), 0
LINE (200, 200)-(200 - x, 250 - x), 0
LINE (200 + x, 150 + x)-(200, 400), 0
LINE (200 - x, 250 - x)-(200, 400), 0
LINE (200, 0)-(200, 400), 0
NEXT x
' LOOP
' colorx = colorx + 1
' IF colorx = 16 THEN LET colorx = 1
GOTO main